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0 Quick start 

PASKAL is a Pascal cross-compiler for the English Electric KDF9. It runs natively on your computer and produces a 
KDF9 object program in the form of a Usercode text, with the aim of offering a better way to see the KDF9 architecture 
in action than writing Usercode programs yourself. If you are set up to compile and run ALGOL 60 or Usercode with ee9 
[Findlay3], you can easily compile and run Pascal programs thus: 


pasc prog[datal- ] [mode|- ]|[miscellany|- |[tt[ tt] ] 


where the parameters are the same as those for the nine command [Findlay3, $1], except that the prog parameter 
designates the source file Pascal /prog.p. For example: 


pasc FLUID - t 


compiles Pascal/FLUID.p, generating the Usercode program Assembly /FLUID.k3 and assembling the latter into 
the KDF9 executable Binary/FLUID. It then runs the latter in tracing mode. 


PASKAL generates efficient code for many special cases, with the primary objective of reducing code size, an important 
consideration with only 48K syllables of code available. This also shows the KDF9 architecture in a good light, which is 
the raison d’étre of PASKAL. PASKAL consists of a one-pass compiler, paskal, written in Pascal, working with a 
“peephole optimizer’ called glance, written in Ada 2012. paskal is unable to do global optimizations, but is helped to 
make many improvements by post-processing with glance, which has access to the whole text of the object program. 


1 Compiler features 


1.1 Source code handling 
pasc looks for Pascal source programs in the Testing/Pascal directory. An alternative directory can be nominated 
by setting its pathname in the exported shell variable PASCAL (not PASKAL). 


Lines of source code are limited to 140 characters. Pascal identifiers and reserved words are case-insensitive. Identifiers 
are limited to 32 significant characters, medial underscore being allowed. Global directives of the form %n = yes | no 
may appear before the program heading, and enable or disable option n in applocation to the whole program. Local 
directives of the form %n = on | off may appear after the program heading, applying option n selectively, and are 
effective only if the option is enabled globally. The % of a directive must be the first non-blank character in its line and 
directives must be on a line by themselves. 
paskal sends a compilation listing to its standard output. Listing is performed by default, but can be disabled by the 
global 3listing = no directive. When enabled, listing can be suspended by the local 31isting off directive and 
resumed by listing on. Error messages are always output, and include error numbers and indications of the 
positions in the line at which the errors were detected. Most errors are indicated by a ^ character pointing to the position 
of the error on the source line listed above, but if a subsequent error is too close to be able to position the ^ properly it is 
located by also giving its column number, for example, thus: 

x := b[x,z} 

“113,{11}104,{12}6 

where error 113 is caused by the x, error 104 by the z at column 11, and error 6 by the brace at column 12. 
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On completion paskal outputs a summary list of error numbers and their meanings. An error that would prevent or 
terminate the execution of an object program makes paskal quit without further ado, but some errors are better 
described as warnings and do not prevent the continued generation of object code, allowing a run which will probably 
fail, but might provide useful information for testing. See the lists of error numbers in §3 and §4. Stopping at the first fatal 
error is now a more useful practice than the former attempt to continue without generating further spurious errors, since 
the edit/compile/edit cycle now takes a second or so, and not a full day! 


1.2 Restrictions 

The only packed types are the types alfa8 and alfal6, which are held in one or two words respectively, containing 
the characters in KDF9 card code. set types with ord(maximum element) > 95 are not implemented. Files types are not 
implemented. This includes the text type, so that Standard Pascal I/O is not available, but see §6. 


1.3 Extensions 
Two non-Standard reserved words are recognised: usercode and otherwise. 


otherwise introduces a default clause in a case statement. It must be the last of the cases, and its associated statement 
is executed when the case index is unequal to all of the listed case labels. If no otherwise clause is given, a fixed 
default action fails the run. 


The usercode ... end compound statement allows the insertion of Usercode into the object program. In such a 
statement: 


e An expression other than a string pushes its own value into the NEST. 
e A string is copied verbatim into the object code. 
e A construct of the form @v, for some variable v, pushes the address of v into the NEST. 
e A construct of the form =v, for some variable v, pops the NEST into v. 
The @v construct is actually allowed in any integer expression and yields an integer. 
Pascal lacks an exponentiation operator, so PASKAL provides the function power (base, p) which is such that: 
e power (base, p : integer), where p = 0, yields the integer result base? 
e power (base : real; p : integer) yields the real result base” by multiplication 
e power (base, p : real) yields the real result exp (p* 1n (base) ) 
In every case, following Knuth, 0 to the power 0 yields 1. 


paskal provides the non-standard, but ubiquitous, mark(p) and release(p) procedures. mark sets its variable 
parameter p to the current furthest extent of the heap; release uses a value obtained by a previous call of mark to 
truncate the heap to that former extent. re lease makes no attempt to ensure that this is a safe or sensible thing to do! 


paskal allows integer constants in octal as well as decimal, with the # syntax used by ee9. 


paskal implements the include directive to enable source code to be inserted into the program. This is how the 
provided I/O routines are accessed. See $7. 


KDF9 Usercode provides only basic and inflexible storage allocation features, which require a program to fix the sizes of 
its named storage areas. paskal has a default set of sizes, but these are not always suitable, so it also provides global 
directives that let the programmer take control, as follows. 

$storage = 5s 

Set the Usercode ST parameter, which determines the total amount of core to be allocated. The absolute maximum for s is 
32768, but the default value of 30304 allows running under TSD. 

systores = y 

Set the size of the Y-store area, which contains the Pascal stack. The absolute maximum for y is 32672, but this precludes 
anything more than a tiny program. 

svstores = v 


Set the size of the V-store area for PO, the Pascal program’s object code, which the compiler uses for constants that cannot 
be pushed into the NEST with KDF9 SET orders. V-stores are allocated amid the executable instructions, starting at word 
8, so the total number of V-stores, even for a null program, cannot exceed about 8000. 


If a program uses the heap, the heap’s lower bound is set to the word after the last Y-store. 


One further Usercode-related directive is: 

Sruntime = ft 

Set the Usercode TL parameter, limiting the execution time to £ seconds when running the program under the TSD. 
paskal defaults to a value of 999999. 

1.4 The object program 

1.4.1 Program structure 

The output from PASKAL is in the form of KDF9 Usercode, suitable for compilation by ka13. The Pascal program, 
including its subprograms, is represented by Usercode routine PO. P-numbers greater than 99 and less than 200 are used 
for run-time support routines, including the Pascal I/O (when implemented) and the mathematical library functions. 

1.4.2 Data representation 

All Pascal simple types are represented by one KDF9 word. The fully supported integer range is -maxint ..+maxint, 
where maxint = 201. The value -247 is used as an ‘undefined’ marker for function results in checked code, and may 
cause an unchecked overflow when used in an expression. Division of a non-negative integer expression by a constant 
less than 2!’ is implemented efficiently, by multiplication and shifting, when the range of the dividend excludes maxint. 
(Many such divisions are optimized even when the dividend range does include maxint.) 

Constant operands too big for the KDF9 SET order are placed in V stores of PO. 

Characters in char and string constants are represented in KDF9 card code. 
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true is represented by all ones (i.e. -1), and false by zero. Nevertheless, ord(false) yields 0 and ord(true) 
yields 1, as required by the language definition. paskal evaluates Boolean expressions fully, not using short-circuit 
forms, and relies on glance to remove useless conversions of comparisons to Booleans in common simple cases. 


set values are stored in one word if ord (maximum element) < 48 or in two words if ord (maximum element) < 96. 
Bits within sets are numbered in little-endian fashion; i.e. the element with ordinal value 95 is represented by the sign bit, 
DO, of the more significant word. paskal generates two-word values for set constructors ([...]) if it cannot determine an 
upper bound on the members; when used in a one-word set expression the extra word is checked and deleted at run time. 
Conversely, if a set constructor that manifestly fits in one word is used in a context that demands a two-word set value, a 
word of zeros is appended to it at run time. These overheads are necessitated by the deeply unsatisfactory semantics of set 
types in Pascal; Wirth got away with this sloppiness because he had the 60-bit CDC word to play with and no efficiency 
advantage accrued to using less than a word (quite the contrary, in fact). 


1.4.3 Runtime organization 

Expressions are evaluated on the KDF9 NEST. At the end of a statement the NEST and the SJNS are empty, in general. 
The SJNS may contain one return address during the execution of a leaf procedure or function, and the NEST at the end 
of an assignment statement may contain one value that is immediately used by the following statement. No other 
precaution is taken to avoid overfilling the NEST or SJNS. NEST overflow can happen if a recursive subprogram is called 
with a value having been placed in the NEST before the call. For example: 


sum := Fibonacci(m-2) + Fibonacci(m-1); 
This can be avoided by saving the result of the first call in a local variable, thus: 
temp := Fibonacci(m-2); sum := Fibonacci(m-1) + temp; 
The stack is held in Y stores. The stack runs up from YO and the heap runs down from ZO (the last allocated word). 


In a leaf procedure or function, i.e. one that makes no calls to a declared procedure or function, up to 10 local variables 
having simple types (boolean, char, integer, real, set or pointer types) can be held in Q stores instead of 
locations in the stack frame. Access to Q stores is both shorter and faster than access to core store, so that both speed and 
size benefit. Conversion to Q stores stops at the first local variable which has its address evaluated (e.g. an array), so it is 
advantageous to declare such variables following all the other variables. Note that taking the address of a local variable v 
of a leaf procedure, using @v construct, will give a meaningless result if it has been allocated to a Q store. 


For more information about these matters, see PASKAL: Object Program Structure [Findlay6]. 


1.4.4 Runtime checking 
Runtime checks are off by default, but can be explicitly enabled by the global checks = yes directive. If enabled, 
they can be suspended by checks off and resumed by checks on. When checks are on: 


e a value assigned to a variable or a parameter is tested to ensure that it lies in the permitted range of its type 
e the V (overflow) register is tested after evaluating an expression that has the potential to cause overflow 

e function return values are checked to ensure that they have been set 

e efforts are made to prevent the stack and heap from overlapping 

e pointer dereferencing is tested to ensure that the pointer value, p, lies in the range ZO < p < AZO 


Some checks are always enabled, including those made in the standard functions and a check on the value of the deleted 
word of a 2-word set value used in a 1-word set expression. 
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2 Example 


This example of a complete program illustrates how PASKAL maps Pascal to the KDF9. To keep it short, the program 
does no output, and leaves the result of calling Ackermann in the NEST, by means of the usercode statement. Here is a 


copy of the compilation listing: 


PASKAL, the KDF9 Pascal cross-compiler V10.0 beta 


lu Sstorage = 32768 

2 u Systores = 32000 

3 u %gchecks = no 

4 u program acks; 

5u 

6 u const 

7u n = 8; 

8 u 

9 u function Ackermann(m, n : integer) 
10 u label 

11 u 1; 

12 u 1b begin 

13 u 1: if m = 0 then 

14 u Ackermann := n + 1 
15 u else 

16 u if n = 0 then 

17 u 2b begin 

18 u n := 1; 

19 u m := m - 1; 
20 u goto 1; 
21 u 2e end 
22 u else 
23 u 2b begin 
24 u n := Ackermann(m, n - 1); 
25 u m := m - 1; 
26 u goto 1; 
27 u 2e end; 
28 u le end; 
29 u lb} begin 
30 u usercode Ackermann(3, n); end; 
31 u le| end . 


compilation complete : 


: integer; 


0 fail(s) and 0 warning(s) were reported 


After compilation by paskal and post-processing by glance, we get the following: 


P 

ACKS | 

ST 32768; TL 999999; 

V119; Y31999; 

RESTART; J1P119; J9P119; 

PROGRAM; 

Jl; (GO TO THE PRELUDE OF THE MAIN PROGRAM); 
(PRELUDE OF ackermann j3 
*3; LINK; =E2M2; ERASE; Ql; =MOM2N; Q2TOQ1; SET 4; =+M2; 
(line 13 "1: if m = 0 then"); 

4; E-2M1; J8#2Z; 

(line 14 "“ackermann := n + 1"); 

E-1M1; NOT; NEG; =E3M1; 

J7; 

(line 15 "else"); 

8; 

(line 16 "if n = 0 then"); 

E-1M1; J11#Z; 

(line 17 "begin"); 

(line 18 "n := 1;"); 

ZERO; NOT; NEG; =E-1M1; 


(line 19 "m ¿j= m= 1;"); 


E-2M1; NEG; NOT; =E-2M1; 

(line 20 "goto 1;"); 

J4; 

(line 21 "end"); 

J10; 

(line 22 "else"); 
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11; 
(line 23 "begin"); 


(line 24 "n := ackermann{m, n - 1};"); 


E-2M1; =MOM2Q; E-1M1; NEG; NOT; =M0M2Q; ZERO; JS3; =E-1M1; 


(line 25 "m :=m —- 1;"); 
E-2M1; NEG; NOT; =E-2M1; 


(line 26 "goto 1;"); 
J4; 


(line 27 "end;"); 
10; 
7; 
(line 28 "end;"); 


(POSTLUDE OF ackermann 


FORMALS=2 ); 


E3M1; M1TOQ2; SET -2; =+M2; E2M1; =LINK; MOM1N; =Q1; EXIT 1; 


(BODY OF ACKS 


2; 


(line 30 "usercode ackermann{3, n}; end;"); 
SET 3; =MOM20; SET 8; =MOM20; ZERO; JS3; 


(line 31 "end ."); 


(POSTLUDE OF ACKS 
JP119; 


(PRELUDE OF ACKS 


MAIN PROGRAM) ; 


MAIN PROGRAM) ; 


MAIN PROGRAM) ; 


1; SET AYO; =RM1; SET AY4; =RM2; SET AYO; =RM3; 
Q3; =Y0; Q1; =Y1; ZERO; =Y2; ZERO; =Y3; SET AZO; =2Z0; 


J2; 


P119V32; (END THE RUN); 


(runtime system routines omitted) 


3 Compilation error messages 
0: compiler failure or feature not yet implemented 
error in simple type 
symbol expected was an identifier 
packed types are not yet implemented 
symbol expected was ) 
symbol expected was : 
unexpected symbol 
error in parameter list 
symbol expected was of 
symbol expected was ( 
: error in type 
: symbol expected was [ 
: symbol expected was ] 
: symbol expected was end 
: symbol expected was ; 
: symbol expected was an integer constant 
: symbol expected was = 
: symbol expected was begin 
: error in declaration part 
: error in field-list 
: symbol expected was , 
: misordered declarations ? 
: error in constant symbol 
: symbol expected was := 
: symbol expected was then 
: symbol expected was until 
: symbol expected was do 
: symbol expected was to or downto 
: expected was if 
: error in factor 


S Ose Oe ee te 


AnNnnNnnAnnnneee eee ee enw 
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59: error in variable 
90: premature end of source file 


101: 
102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 


110: 
111: 
112: 
113: 
114: 
115: 
116: 
117: 
119: 
120: 
121: 
122: 
123: 
124: 
125: 
126: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151: 
152: 
153: 
154: 
155: 
156: 
157: 
158: 
159: 


identifier declared twice in the same block 

lower bound of subrange exceeds upper bound 
identifier is not of appropriate class 

identifier not declared 

a sign is not allowed here 

symbol expected was a number 

incompatible subrange types 

a file is not allowed here 

the type here must not be real 

a tag field type must be ordinal 

incompatible with tag field type 

an index type must not be real 

an index type must be ordinal 

a base type must not be real 

a base type must be ordinal 

error in type of builtin procedure 

unsatisfied forward reference 

forward-declared: repetition of parameter list not allowed 
the type of a function must be ordinal, real or pointer 
file value parameters are not allowed 
forward-declared: repetition of result type not allowed 
missing result type in function declaration 
fixed-point format is allowed for real output only 
error in type of builtin function parameter 

number of parameters does not agree with declaration 
result type of formal function conflicts with declaration 
types of operands conflict 

expression is not of set type 

equality tests only are allowed for this type 

strict inclusion is not allowed (unfortunately) 

file comparison is not allowed 

illegal type of operand(s) 

type of operand must be boolean 

type of set element must be ordinal 

types of set elements are not compatible 

type of variable is not array etc 

subscript type is not compatible with declaration 

type of variable is not record etc 

type of this variable must be pointer or file 

illegal parameter substitution 

illegal type of for-loop controlled variable 

illegal type of expression 

type conflict 

assignment of files is not allowed 

case label type incompatible with case selector 
subrange bounds must be ordinal 

subscript type must not be integer 

assignment to a builtin function is not allowed 
assignment to a formal function is not allowed 

no such field in this record 

assignment to a non-local function is not allowed 

an actual var parameter must be a variable 

a for-loop controlled variable must be a simple local variable 
multi-defined case label 

the body of this loop will never be executed 
declaration of corresponding variant is missing 

real or string tag fields are not allowed 
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160: the body of this loop will be executed only once 

161: multiple forward declaration 

162: parameter size must be constant 

164: builtin procedure/function cannot be formal 

165: multiple definition of label 

166: multiple declaration of label 

167: undeclared label 

168: undefined label in block just ended 

169: the maximum cardinality of a set is 96 

170: formal procedure/function must have value parameters only 
171: this loop may never terminate 

172: undeclared external file 

173: a packed component cannot be passed as a var parameter 
174: forward procedure/function not found in block just ended 
175: subrange bounds cannot be real 

176: label not defined at correct block 

177: undeclared permanent file 

178: no input or output file has been specified 

201: error in numeric constant 

202: a string constant must not cross a line boundary 

203: integer constant exceeds range 

204: 8 or 9 in octal number 

205: strings of length zero are not allowed 

250: too many nested scopes (blocks/with statements) 

255: too many errors in this line 

295: nested include code is not yet allowed 

296: the source code line is too long 

297: option value too large 

298: misplaced compiler directive, ignored 

299: invalid compiler directive, ignored 

301: no case provided for this value 

302: value outside required range 

303: overflow or division by zero in integer arithmetic, fails when run 
304: overflow or division by zero in real arithmetic, fails when run 
305: too much storage required 

306: the maximum element of a set must have ordinal less than 96 
307: invalid include file name 

308: maximum number of V stores exceeded 

309: this expression will always yield false 

310: this expression will always yield true 


4 Runtime error messages 

Only basic runtime error messages are provided, as ee9 has a wealth of debugging options available. A failed check is 
identified by an error number stored in Y3 and in the NEST. The location of the failure can be readily obtained from the 
retrospective trace provided by ee9 and the assembly listing provided by ka13. 


The errors that are detected include the following: 

401: attempt to use an ordinal value outside the range of its type 

402: overflow or division by zero in integer arithmetic 

403: overflow or division by zero in real arithmetic, or invalid argument to sqrt or 1n 
404: too much storage required on extending the heap 

405: too much storage required on extending the stack 

406: function value still undefined at return 

407: attempt to dereference a nil pointer value 

408: attempt to dereference an invalid pointer that does not reference a variable in the heap 
409: case statement has no limb for this index value 


5 The postmortem diagnostic program, paskal_post 
The visibility/miscellany option in ee9, c, makes it write a failing program’s state —including its core image—to a text 
file, for use as the ‘corpse’ by paskal_post. 


paskal_post is not yet implemented. 
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6 I/O 


These interim output routines may be included in the declaration part of any block in which they would be useful by 
means of the directives include paskal_char_io,%include paskal_int_io and %include paskal_real_io. 
Their source code is taken from the directory used for Pascal source by pasc. See $1.1. 


6.1 paskal_char_io 
function fetch_char (a : alfa8; i : integer {0..7}) : char 

return a[i] 
procedure store char (var a : alfa8; i: integer {0..7}; c : char) 

a[i] := c 7 
procedure open (stream, device type : integer) 

{ stream in 0..9;device_type as inthe TSD: 0=FW, 1=TP, 2=TR, 3=LP, 4=CR, 5=TP, 7=CP } 

procedure get_char (stream : integer; var ch : char) 
procedure put_char (stream : integer; ch : char) 
procedure case _normal (stream : integer) : write a CN character to the stream 
procedure case shift (stream : integer) : write a CS character to the stream 
procedure space (stream, count : integer) : write count blanks to the stream 
procedure new_line (stream, count : integer) : write count LS characters (New Lines) to the stream 
procedure page (stream : integer) : write one PC (Form Feed) character to the stream 
procedure get_alfa8 (stream : integer; var a : alfa8) : read 8 characters from the stream into a 
procedure put_alfa8 (stream : integer; a : alfa8) : write 8 characters from a to the stream 
procedure get_alfal6é (stream : integer; var a : alfalé6) : read 16 characters from the stream into a 
procedure put_alfal6é (stream : integer; a : alfal6é) : write 16 characters from a to the stream 
6.2 paskal_int_io 


These routines use the subprograms declared in paskal_char_io, which must therefore be included in advance. 
put_small_int and put_small_int_left_justified default to fields of 8 columns; put_int_left justified 
and put_int default to 15 columns. With put_int field and put_small_int field the digits are either right- or 
left-justified in abs (field) columns, right if field = 0 and left if field <0 . If field is non-negative, a positive 
sign is replaced by a blank; if it is negative, a positive sign is suppressed. 


procedure put_small_int field (stream, number, field : integer) 
procedure put_small_int (stream, number : integer) 


procedure put small int left justified (stream, number : integer) 


procedure put_int field (stream, number, field : integer) 
procedure get_int (stream : integer; var number : integer ) 
procedure put_int (stream, number : integer) 

procedure put_int_left_ justified (stream, number : integer) 


6.3 paskal_real_io 


These routines use the subprograms declared in paskal_int_io, which must therefore be included in advance. If the 
number can be expressed in fixed point with 8 or fewer digits, put_fixed does so; if more digits would be needed it uses 
put_float to ensure that they are all output. put_float outputs the number with an integer part, a fractional part and 
an exponent, in Pascal format. 


procedure put float (stream : integer; number : real) 


procedure put fixed (stream : integer; number : real) 
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7 Miscellaneous routines 
These utility routines may be included in the declaration part of any block in which they would be useful by means of the 
S$include paskal_logic_ functions, %include paskal_timing and %include paskal_algol_ functions 
directives. Their source code is taken from the directory used for Pascal source by pasc. See §1.1. 
7.1 paskal_logic_functions 
function address of (var v : integer) : integer 
return @x 
function word_at (place : integer) : integer 
fetch contents of word[ place]; 
procedure store word_at (value : integer; place : integer) 
set word[place] := value 
function andx (a, b : integer) : integer 
compute a and b, considered as bit patterns 
function nevx (a, b : integer) : integer 
compute a xor b, considered as bit patterns 
function orx (a, b : integer) : integer 
compute a or b, considered as bit patterns 
function shift _logical (v, s : integer) : integer 
compute the bit pattern (v shl s)ifs >= Oelse(v shr abs(s)) 
function shift circular (v, s : integer) : integer 
compute the bit pattern (v rol s)ifs >= Oelse(v ror abs(s)) 
7.2 paskal_timing 
function ICR : integer 
return the number of KDF9 instructions executed so far 
function Time : integer 
return the KDF9 CPU time used so far, in ws, with 32s resolution 


7.2 paskal_algol_functions 
function sign (x : real) : integer; 
return -1 if x is negative, 0 if x is 0.0, and +1 if x is positive. 


function entier (x : real) : integer; 
return floor(x) 


8 Odds and ends 


Can you think of anything else that needs explanation? If so, let me know: kd£9@findlayw.plus.com. 
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